Option Explicit
'ۭqҲ
Private Sub CommandButton1_Click()
    Dim myHwnd As Long
    Dim lngNewLong As Long
    Dim myRc As Long
    Dim myClassName As String
    myClassName = "ThunderDFrame"
    myHwnd = FindWindow(myClassName, Me.Caption)
    lngNewLong = GetWindowLong(myHwnd, GWL_STYLE)
    myRc = SetWindowLong(myHwnd, GWL_STYLE, _
        lngNewLong Or WS_THICKFRAME Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX)
    myRc = DrawMenuBar(myHwnd)
End Sub

Private Sub CommandButton2_Click()
    Dim myHwnd As Long
    Dim lngNewLong As Long
    Dim myRc As Long
    Dim myClassName As String
    myClassName = "ThunderDFrame"
    myHwnd = FindWindow(myClassName, Me.Caption)
    lngNewLong = GetWindowLong(myHwnd, GWL_STYLE)
    myRc = SetWindowLong(myHwnd, GWL_STYLE, _
    lngNewLong And (Not (WS_THICKFRAME Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX)))
    myRc = DrawMenuBar(myHwnd)
End Sub

Private Sub CommandButton3_Click()
    Unload Me
End Sub


